From: Miles Bader <miles@gnu.org>
Date: Tue, 9 Jul 2002 06:00:05 +0000 (+0000)
Subject: (hexl-find-file): Bind `completion-ignored-extensions' to nil when
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31789
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4aaa92813e432775a5c2f042202fcc9db12bd87b;p=emacs.git

(hexl-find-file): Bind `completion-ignored-extensions' to nil when
prompting for a filename.
---

diff --git a/lisp/hexl.el b/lisp/hexl.el
index 176def81026..7c4a1610b9e 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -1,6 +1,6 @@
 ;;; hexl.el --- edit a file in a hex dump format using the hexl filter
 
-;; Copyright (C) 1989, 1994, 1998, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1989, 1994, 1998, 2001, 2002 Free Software Foundation, Inc.
 
 ;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu>
 ;; Maintainer: FSF
@@ -277,7 +277,10 @@ You can use \\[hexl-find-file] to visit a file in Hexl mode.
 (defun hexl-find-file (filename)
   "Edit file FILENAME in hexl-mode.
 Switch to a buffer visiting file FILENAME, creating one in none exists."
-  (interactive "fFilename: ")
+  (interactive
+   (list
+    (let ((completion-ignored-extensions nil))
+      (read-file-name "Filename: " nil nil 'ret-must-match))))
   (find-file-literally filename)
   (if (not (eq major-mode 'hexl-mode))
       (hexl-mode)))